Person-Date-Of-Birth names an undocumented function, with lambda list (OBJECT).
(SETF Person-Date-Of-Birth) names an undocumented function, with lambda list (NEW-VALUE OBJECT).